home *** CD-ROM | disk | FTP | other *** search
/ OctaMED Sound Studio 1 / OctaMED SoundStudio V1.iso / docs / rexx / insert.omed < prev    next >
Text File  |  1996-06-18  |  466b  |  16 lines
  1. /* Insert */
  2. rn_bufferexists 2 var buffer
  3. if ~buffer then exit
  4. rn_getbufflines buff 2 var length
  5. rn_getbufftracks buff 2 var tracks
  6. tracks=tracks-1
  7. ed_getcurrtrack var currtrack
  8. ed_getcurrline var currline
  9. ed_getnumlines var numlines
  10. do until tracks=-1
  11.     'ed_insertemptynote track' currtrack+tracks 'insspace' length
  12.     tracks=tracks-1
  13. end
  14. rn_paste range
  15. if currline+length>=numlines then ed_goto track currtrack line 0
  16. else ed_goto track currtrack line currline+length